﻿'Hacemos una referencia al proyecto de acceso a datos
Imports DataAccessLayer
'Hacemos una referencia al proyecto BusinessEntitites
Imports BE = BusinessEntities

Public Class ServicioBL
    'Instanciamos la clase ServicioDAO
    Dim servicio As New ServicioDAO



    Public Function ListarServicios() As DataSet
        

        Return servicio.ListarServicios

    End Function

    Public Function BuscarServicio(ByVal objeto As BE.ServicioBE) As DataSet
        Return servicio.BuscarServicio(objeto)
    End Function

    Public Function DetalleServicio(ByVal objeto As BE.ServicioBE) As DataSet
      

        Return servicio.DetalleServicio(objeto)

    End Function

    Public Function BuscarServiciosxTipo(ByVal objeto As BE.ServicioBE) As DataSet
       

        Return servicio.BuscarServiciosxTipo(objeto)

    End Function

    Public Function BuscarServiciosxCriterio(ByVal objeto As BE.ServicioBE) As DataSet
        

        Return servicio.BuscarServiciosxCriterio(objeto)

    End Function

    Public Function InsertarServicio(ByVal objeto As BE.ServicioBE) As Boolean

        Return servicio.InsertarServicio(objeto)

    End Function


    Public Function ActualizarServicio(ByVal objeto As BE.ServicioBE) As Boolean

        Return servicio.ActualizarServicio(objeto)

    End Function

    Public Function EliminarServicio(ByVal objeto As BE.ServicioBE) As Boolean
        Return servicio.EliminarServicio(objeto)
        
    End Function

    Public Function ListarTipoServicios() As DataSet
     
        Return servicio.ListarTipoServicios

    End Function

    Public Function BuscarDescripcionTipoServicios(ByVal objeto As BE.ServicioBE) As DataSet

        Return servicio.BuscarDescripcionTipoServicios(objeto)

    End Function

    Public Function ChapaError() As String
        Return servicio.ChapaError
    End Function

End Class
